namespace eval ::ChargeSkills {
	StartTCL::Provide
	variable ::ChargeSkills::FromSpells
  array set ::ChargeSkills::FromSpells {
	 		  100 12695
	 	   6178 12695
	 	  11578 12695
	 	  20252 14530
	 	  20616 17498
	 	  20617 22863
	}

	variable ::ChargeSkills::ToSpells
  array set ::ChargeSkills::ToSpells {
  		12695  7933
  		14530 20253
	 	  17498 20614
	 	  22863 20615
	}
}


proc ::ChargeSkills::Self { to from spellid } {
	::CastSpell $from $to $::ChargeSkills::FromSpells($spellid)
}

proc ::ChargeSkills::ByVictim { to from spellid } {
	::CastSpell $to $to $::ChargeSkills::ToSpells($spellid)
}


proc ::ChargeSkills::Init { } {
	if { [ info exists "::StartTCL::VERSION" ] } {
		::Custom::AddSpellScript "::ChargeSkills::Self" [ array names ::ChargeSkills::FromSpells ]
		::Custom::AddSpellScript "::ChargeSkills::ByVictim" [ array names ::ChargeSkills::ToSpells ]

	} else {
	}
}

::ChargeSkills::Init